<%
Class GetOrder
	Dim BackValue
	Dim ID
	Dim nums
	
	Private Sub Class_Initialize()
		BackValue=0
		ID = ""
		nums=0
	End Sub
	
	Public Function GetData()
	on error resume next
		Dim Rs,i
		Set Rs = DB("select * from [{pre}Comment] where [State]=0",3)
		If Rs.Eof Then
			BackValue = 0
		Else
			BackValue = 1
		End If
		Set Rs = Nothing
	End Function
	

End Class
%>